
 
 B u t t o n   1   T e x t   E d i t S e q u e n c e 
 
 B u t t o n   2   T e x t   S e l e c t S e q u e n c e 
 
 
 
 B u t t o n   4   T e x t   G e t F i l e N a m e s 
 
 B u t t o n   5   T e x t   G e t F o l d e r N a m e s 
 
 B u t t o n   6   T e x t   G e t T e x t F i l e 
 
 
 
 B u t t o n   8   T e x t   A p p l i c a t i o n P a t h 
 
 B u t t o n   9   T e x t   F i l e P a t h 
 
 B u t t o n   1 0   T e x t   F i l e N a m e 
 
 
 
 V a r i a b l e   S t r i n g   S e q u e n c e N a m e 
 
 S e q u e n c e N a m e   =   " T e s t S e q . s e q " 
 
 G o s u b   S h o w S e q u e n c e N a m e 
 
 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 C o n t r o l s   C l e a r T e x t B o x 
 
 
 
 S t o p 	 	 	 	 	 	 	 	 	 	 	 	 	 	 	 	 ' 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   I n i t S e q u e n c e P a t h s 
 
 	 V a r i a b l e   S t r i n g   E d i t o r F o l d e r 
 
 	 V a r i a b l e   S t r i n g   E d i t o r A p p 
 
 	 V a r i a b l e   S t r i n g   S e q u e n c e P a t h A n d N a m e 
 
 	 ' 
 
 	 E d i t o r F o l d e r   =   " . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ E d i t o r \ " 
 
 	 ' 
 
 	 E d i t o r A p p   =   E d i t o r F o l d e r   +   " T h e r e m i n o _ E d i t o r . e x e " 
 
 	 ' 
 
 	 S e q u e n c e P a t h A n d N a m e   =   E d i t o r F o l d e r   +   " S e q u e n c e s \ "   +   S e q u e n c e N a m e 
 
 R e t u r n 
 
 
 
 L a b e l   E d i t S e q u e n c e 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 I f   F i l e E x i s t s ( S e q u e n c e P a t h A n d N a m e ) 
 
 	 	 L o a d   E d i t o r A p p   +   "   "   +   S e q u e n c e P a t h A n d N a m e 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   S e l e c t S e q u e n c e 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 s 1   =   S e l e c t F i l e ( E d i t o r F o l d e r   +   " S e q u e n c e s \ " ) 
 
 	 I f   s 1   < >   " " 
 
 	 	 S e q u e n c e N a m e   =   s 1 
 
 	 	 G o s u b   S h o w S e q u e n c e N a m e 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   S h o w S e q u e n c e N a m e 
 
 	 B u t t o n   S e l e c t S e q u e n c e   T e x t   " S e q u e n c e "   +   C R L F   +   S e q u e n c e N a m e 
 
 R e t u r n 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     G e t F i l e N a m e s     G e t F o l d e r N a m e s     G e t T e x t F i l e 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   G e t F i l e N a m e s 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 s 1   =   G e t F i l e N a m e s ( E d i t o r F o l d e r   +   " S e q u e n c e s \ " ) 
 
 	 P r i n t   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   G e t F o l d e r N a m e s 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 s 1   =   G e t F o l d e r N a m e s ( E d i t o r F o l d e r ) 
 
 	 P r i n t   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   G e t T e x t F i l e 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 s 1   =   G e t T e x t F i l e ( S e q u e n c e P a t h A n d N a m e ) 
 
 	 P r i n t   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     G e t A p p l i c a t i o n P a t h       G e t F i l e P a t h       G e t F i l e N a m e W i t h o u t P a t h 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   A p p l i c a t i o n P a t h 
 
 	 s 1   =   G e t A p p l i c a t i o n P a t h ( ) 
 
 	 P r i n t   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   F i l e P a t h 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 s 1   =   G e t F i l e P a t h ( S e q u e n c e P a t h A n d N a m e ) 
 
 	 P r i n t   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   F i l e N a m e 
 
 	 G o s u b   I n i t S e q u e n c e P a t h s 
 
 	 s 1   =   G e t F i l e N a m e W i t h o u t P a t h ( S e q u e n c e P a t h A n d N a m e ) 
 
 	 P r i n t   s 1   +   C R L F 
 
 R e t u r n 
 
 
 
 
 
 ' E X E C   S i n 2   =   S i n ( 3 3 ) 
 
 